-- background: 2792 from stack: in
-- bmap block id: 6024
-- flags: 0000
-- background id: 0
-- name: Back
----- HyperTalk script -----





-- part 23 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=54 top=82 right=107 bottom=396
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: Count Field
----- HyperTalk script -----
on mouseUp
  hide field "Count Field"
end mouseUp


-- part 33 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=4 top=39 right=342 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Text


-- part 34 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=5 top=39 right=342 bottom=217
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: List
----- HyperTalk script -----

on mouseUp
  set lockText of the target to false
  click at 5,item 2 of the clickLoc
  click at 195, item 2 of the clickLoc with shiftKey
  if the selection is empty
  then
  set lockText of the target to true
  exit mouseUp
else
  put the selection into holder
  put card field holder into bkgnd field "Text"
  put holder into bkgnd field "Title"
  set lockText of the target to true
  hide bkgnd field "List"
  hide bkgnd field "Instructions"
  hide button "Cancel"
  hide button "Sort Document Names"
end if
end mouseUp




-- part 44 (button)
-- low flags: 00
-- high flags: 2001
-- rect: left=487 top=3 right=17 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 21847 / 21847
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  go Home
end mouseUp



-- part 64 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=123 top=21 right=40 bottom=387
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Title


-- part 47 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=335 top=3 right=19 bottom=484
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Date
----- HyperTalk script -----
on mouseUp
  set the cursor to 4
  set lockScreen to true
  get item 2 to 3 of field "Date"
  delete char 1 of it
  put it into field "Temp Field"

  show field "Temp Field"

  type tab
  type tab
  doMenu "Copy Text"
  hide field "Temp Field"
  set the cursor to 1
  click at 4,41
  set lockscreen to false
end mouseUp


-- part 66 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=28 top=0 right=18 bottom=63
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: File
----- HyperTalk script -----
on mouseDown

  get PopUpMenu("New;New & get address;Open...;Import Text File;Save;Save As...;Export as Text File;Delete HyperWrite Document;---------;Print...;----------;Quit HyperWrite;Quit HyperCard",0,20,29)
  if it is 1
  then
  "Verify"
  "New"
  exit mouseDown
else
  if it is 2
  then
  "Verify"
  "New"
  go "Address"
  exit mouseDown
else

  if it is 3
  then
  "Verify"
  show field "List"
  show field "Instructions"
  show button "Cancel"
  show button "Sort Document Names"
  exit mouseDown
else
  if it is 4
  then
  "Verify"
  OpenText
  exit mouseDown
else
  if it is 5
  then
  "Save"
  exit mouseDown
else
  if it is 6
  then
  SaveAs
  exit mouseDown
else
  if it is 7
  then
  TextFile
  exit mouseDown
else
  if it is 8
  then
  hide field "List"
  put field "List" into card field "DelFld"
  show card field "Select"
  show card field "DelFld"
  exit mouseDown
else
  if it is 9
  then
  exit mouseDown
else
  if it is 10
  then
  go to card "Print Directions 1"
  exit mouseDown
else

  if it is 11
  then
  exit mouseDown
else
  if it is 12
  then

  go Home
  exit mouseDown
else
  if it is 13
  then

  doMenu "Quit HyperCard"
  exit mouseDown
end if
end if
end if
end if
end if
end if
end if

end if
end if
end if
end if
end if

end if
end mouseDown

on OpenText
  Get FileName("TEXT")
  if it is empty then exit OpenText
  put it into fileName
  open file fileName
  read from file fileName for 99999
  put it into field "Text"
  close file fileName
  hide field "List"
end OpenText

on New
  hide field "List"
  put empty into bkgnd field "Text"
  put "<<untitled>>" into bkgnd field "Title"
  click at 4,41
end New

on Save
  if field "Text" is empty
  then
  answer "There is nothing to save!"
  exit Save
else
  if field "Title" = "<<untitled>>"
  then
  SaveAs
  exit Save
else
  set the cursor to 4
  set the lockScreen to true
  put field "Title" into filename
  put bkgnd field "Text" into card field fileName
end if
end if
end Save

on Verify
  if field "Text" is not empty and field "Title" = "<<untitled>>" then LetMeKnow
end Verify

on LetMeKnow
  global failsafe
  Beep
  Beep
  Answer "Current document is not saved!" with "I don't care!" or "Save it!"
  if it is "Save it!" then SaveAs
  if failsafe is 1 then verify
end LetMeKnow



on SaveAs
  global failsafe
  get field "Text"
  if it is empty
  then
  answer "There is nothing to save!"
  exit SaveAs
else
  ask "Save text to what file name?"
  if it is empty
  then


  answer "Proceed without saving?" with "No, go back" or "OK"
  If it is "OK"
  then
  put 0 into failsafe
  exit SaveAs
else
  SaveAs
end if



else
  put it into fileName
  put number of lines in bkgnd field "List" into Count
  repeat with L= 1 to Count
    put the number of chars of line L of bkgnd field "List" into LChars
    put the number of chars of fileName into FChars
    repeat while line L of bkgnd field "List" = fileName and LChars = FChars
      answer "Sorry, that name is taken. Try another." with "OK"
      put 1 into failsafe
      SaveAs
      exit SaveAs
    end repeat
  end repeat
  set the lockScreen to true
  set the cursor to 4
  put it into fileName
  set the lockScreen to true
  domenu "New Field"
  get the number of card fields
  set name of card field IT to filename
  put bkgnd field "Text" into card field fileName
  put number of lines in bkgnd field "List" into counter
  add 1 to counter
  put fileName into line counter of bkgnd field "List"
  put fileName into bkgnd field "Title"
  choose browse tool
  hide card field fileName
  put 0 into failsafe
end if
end if
end SaveAs

on TextFile
  get field "Text"
  put it into temp
  if it is empty
  then
  answer "There is nothing to save!"
  exit TextFile
else
  put NewFileName("Save document as?","")into fileName
  if fileName is empty then exit TextFile
  open file fileName
  write temp to file fileName
  close file fileName
end if
end TextFile




-- part 68 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=157 top=0 right=18 bottom=193
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Font
----- HyperTalk script -----
on mouseDown
  get PopUpMenu("Chicago;Geneva;Monaco;----------;Other...",0,20,157)
  if it is 1
  then
  set textFont of field "Text" to "Chicago"
  click at 5,67
  exit mouseDown
else
  if it is 2
  then
  set textFont of field "Text" to "Geneva"
  click at 5,67
  exit mouseDown
else
  if it is 3
  then
  set textFont of field "Text" to "Monaco"
  click at 5,67
  exit mouseDown
else
  if it is 4 then
    exit mouseDown
  else
    if it is 5
    then

    get field "Text"
    Set the lockScreen to true
    get location of bkgnd field "Title"
    click at it
    type tab
    doMenu "Text Style..."
    click at 5,67
    exit mouseDown
  end if
end if
end if
end if
end if
end mouseDown





-- part 70 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=217 top=40 right=161 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Instructions


-- part 71 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=346 top=6 right=18 bottom=457
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Temp Field